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MODULE EXTCONTIG ( 
ANGUAGE COL 15S8¢) « 
DENT = 'V04-000 


~~ 


BEGIN 
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ie (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 


; OTICE. SOF TWARE 
Hie auene Mh jad MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


USED AND COPIED 
Me 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* eePOkat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 
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5 sh jis 

§ O0¢ Vee AERA AAA EEREEE 
3 003 1e¢ 

; 003 ! 

; O08 } FACILITY: F11ACP Structure Level 2 

3 003 ABSTRACT: 

3 003 i This routine extends a file, keeping it contiguous by actually 
; it } reallocating and copying the blocks. 

4 004 : ENVIRONMENT : 

4 004 i STARLET operating system, including privileged syst i 

4 004 ! and lateral phon Pout ines. i dh tage teh a 
4 044 ’ 

4 045 len 

4 B36 ‘ 

4 04 : 

: ane AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Jun-1979 17:39 

5 a083 ; MODIFIED BY: 

: b3¢ i v03-003 CDS0001 Christian D. Saether 29-Dec-1983 

5 0084 Use L_NORM Linkage and BIND_COMMON macro. 

2 0e4 i V03-002 ACG0367 Andrew C. Goldstein 26-0ct-1983 19:50 
2 ones Update highwater mark of extended tile 
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-Sep-19 AX-11 Bliss-32 V4.0-742 
iEseortags 00:84:08 YARCHYBtsoec sa v0 
v03-001 5143070 Steven T. Jettreys 23-Mar-1983 

Remove unnecessary reference to EturN BLOCKS. 
v02-004 $1J41739 Steven T. Jeffreys, 24-Nov-1981 

Explicitly set the at location ¢ cont rol bits when 

extending the quota file. Th WiLL prevent the 

extend from suceededing when i? Should have failed. 
v02-003 $1J33788 Steven T. Jeffreys, 27-Feb-1981 

Signal error if extend fails. 
BO0102 ACG0055 Andrew C. goldstein, 25-Jul-1979 18:41 
Interface changes to TRUNCATE WHEADER 
B0101 ACG0053 Andrew C. Goldstein, 19-Jul-1979 17:51 


Disk quota bug fixes 


*SYSSLIBRARY:LIB.L32'; 
*SRCS$:FCPDEF .B32'; 


ROUT INF 
EXTEND CONTIG : L_NORM, ! extend a file contiquously 
HANDLER; i Local condition handler 
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kK 3 
1erSep-1986 2:40:08 ET 
GLOBAL ROUTINE EXTEND_CONTIG (FIB, FCB, SIZE) : L_NORM = 


+4 
‘ 
FUNCTIONAL DESCRIPTION: 


This routine extends a file. If allocated but unused space is 
resent, this means steely pushing back the EOF and materializing a 
lock of zeroes. If the file is to be physically extended, it is 

copied to a new location on the disk to 


CALLING SEQUENCE: 
EXTEND_CONTIG (ARG1, ARG2, ARG3) 


INPUT PARAMETERS: 
ARG1: scratch FIB for operation 
ARG2: FCB on which file is open 
ARGS: size by which to extend the file (0 means exponentially) 


IMPLICIT INPUTS: 
CURRENT_RVN: RVN of current volume 


OUTPUT PARAMETERS: 
NONE 


eep it contiguous. 


IMPLICIT OUTPUTS: 
PRIMARY_FCB: FCB of file 


ROUTINE VALUE: 
address of buffer containing next block to use 


SIDE EFFECTS: 
file extended, storage map altered, FCB & windows altered 


Ot Re te ed et et eer 


BEGIN 
LINKAGE 
L_MAKE_POINTER = CALL : 
GLOBAL (MAP_POINTER = 9); 
MAP 
FIB : REF BBLOCK, ' address of FIB for this operation 
FCB : REF BBLOCK; ' address of FCB for file 
BUILTIN 


GLOBAL REGISTER 


MAP_POINTER = 9 : REF BBLOCK; ! pointer to current retrieval pointer 
LOCAL 

HEADER : REF BBLOCK, ' address of file file header 

NEXT_VBN, ' next file VBN to use 


NEW_SIZE, ! size to extend file to 


<m 
$5 
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3 
EXTCONTIG 18-se 1984 00:24: AX-11 Bliss-32 V4.0-742 Pa 
1045000 1e-8ep-19 4 99395599 LP TTX. SRCJEXTCONTIG-B32¢1 nse 
143 NEW _LBN, ! starting LBN of new space 
BUFFER ! buffer address of current file block 
NEXT_LON; i LBN of next block to use 


BIND_ COMMON; 


EXTERNAL ROUTINE 
READ L ' read file header 
’ ! charge space to user's quota 
L_NORM, ! allocate blocks from storage map 
L_NAKE POINTER, ! build header map pointer 
: LUNORM : reg a disk block 
: LUNORM, ' assign new LBN to buffer 
: LN ! write block to disk 
L_NORM, ! fabricate a block buffer 
INVA L : 
L ! 
L ! 
' 
i 


VALIDATE : invalidate a buffer 
TRUNCATE_HEADER : 


truncate file header 
CHECK : LIN ' compute file header checksum 
WRITE_HEADER : L_NORM, write file header 
: update file control block. 
invalidate related file windows 


CHSMOVE (FIBSS_FID, FCBCFCBSW_FIDJ, FIBCFIBSW_F1DJ); 
PRIMARY FCB = .FCB; 
IF .FCBCFCBSL_STLBN] EQL 0 
THEN ERR_EXIT (SS$_FILESTRUCT); 
HEADER = READ_HEADER (0, .FCB); 
! The next VBN to use is the current file eof block number. If the block 
is not present in the file, the file must be physically extended. 
NEW _SIZE = 0; 
NEXT_VBN = .FCBCFCBSL_EFBLK) + 1; 
og eaten GTRU .FCBCFCBSL_FILESIZEJ 
BEGIN 


! Compute the number of blocks needed (50% of the current file size) 
or as specified if non-zero, and allocate the new space contiguously. 
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L On OR FIBSM_FILCON); 


W_SIZE, NEQ_LBN, NEW_SIZE) 
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NIT_ .] 
ZERO_WINDOWS L_NORM; 
Set up context and read the file header. Note that the file must be contiguous. 
; 


Be Se Oe Be Oe Se Se Se Se Be Se Se Se Be Se Se Se Fe Se Se Fe Se Ge Se FH Be Ge Ge Se Ge Se Se oe FHS He Oe Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se eees tees 


33S 
oo 
ed aed ed ed od oo COOOOOOOOOOOOOO 


NOUS WN (OO ONOAOUE WN "CO OONOUS W000 


AWA PINIDIPYINININPINID) 2 OS SS tO 
WN "SO OONAOUSWN “OOO WRUES WN Oo 


¥ 


POPIPOPOPUNINPINIPONIPIPIPIMPIPINONINIPUNINPUNPNUAIMPONY 
MEWIN —OOODNOULS WN O00 


PUSPISIA E BS EEE EWI 


AU FWN—OOONOUE WN" OOOnou 
ee eee 


MEW —O OO 


ww 


m 3 
IESSeHals 368M che 


UNREC_COUNT = .NE@ SIZ 
UNREC"LBN = .NE 


W_LBN; 
UNREC"RVN = .CURRENT_RVN; 
Now copy the file data from the old file to the newly allocated space. 


ERR EXIT (SS$ ait rhe 


INCR > eat 1 TO .FCBCFCBSL_FILESIZEJ DO 


BUFFER = READ BLOCK (.VBN + .FCBCFCBSL 
RESET_LBN (.BOFFER, .VBN + .NEW_LBN - 


STLBN) - 1, 1, DATA_TYPE); 
WRITE-BLOCK (.BUFFER); 4 
END; 


T) 


Now deallocate the old file blocks. Then build retrieval pointers 
for the new blocks in the file header. Do the truncation with a | 
condition handler enabled for special error recovery. 


.FP = HANDLER; 
TRUNCATE HEADER (.FIB, .HEADER); 
HEADERCFH2SB MAP_INUSE] = 0; 

CHSFILL (6 t CEH2$B ACOF FSET) - -HEADERCFH2$B_MPOFFSET])*2, 
MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETIJ®2; 


NEW STZE = .NEW SIZE - .FCBCFCBSL_FILESIZE); 
KERNEL_CALL (ZERO_WINDOWS, .FCB); 
END; ! end of file extension 


Now that we have enough space in the file, push the end of file 
mark back one block and materialize the new block in memory. Also 
update the FCB and flush any windows on it. 

If this file header supports it, stuff the high water field to 

be the allocated size. 


If .HEADER CFH2$B_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER) +4) /2 
HEADER CFH2$L_HIGHWATER] = .NEXT_VBN + 1; 


BBLOCK HEADEREE $W_RECATTR], FATSL_EFBLK] = ROT (.NEXT_VBN + 1, 16); 
BBLOCK CHEADERCFHOSW-RECATTRI. FATSW-FFBYTE) = 0; 


KERNEL_CALL (INIT FCB, .HEADER) ; 
BBLOCK”CHEADERCFH2$W_RECATTRS, FATS$W_HIBLKL] = .FCBCFCBSL_FILESIZE); 
CHECKSUM (.HEADER); 
WRITE_HEAD 
F .NEW SIZE NEQ 0 
THEN CHARGE QUOTA (.HEADERCFH2$L_FILEOWNER], .NEW_SIZE, BITLIST (QUOTA_CHARGE)); 


NEXT LON = .FCBCFCBSL_STLBN) + .NEXT_VBN = 1; 
BUFFER = CREATE_BLOCK~(.NEXT_LBN, 1, ~DATA_TYPE); 
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3 ; RETURN .BUFFER; 
END; 
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: F11X.SRCJEXTCONTIG.832;1 


en ncontis 
\V04-000\ 


READ_HEADER, CHARGE_QUOTA 
ALLOC BLOCKS, MAKE POINTER 


I BLOC 
INVALIDATE, TRUNCATE_HEADER 
CHECKSUM, WRITE_HEADER 
INIT_FCB2, ZERO~WINDOWS 


SCODES ,NOWRT,2 


F1B, RO 
#6, 36(R1) 
FCB, 8 (BASE) 
48 (RO) 

1$ 

#2240 

FCB 

-(SP) 

#2, READ_HEADER 
0. HEADER 


FCB; R 
#1,°60(RO), NEXT_VBN 
NEXT_VBN, 56(RO) 


4(RO) 


56(RO), SIZE, NEW_SIZE 


#2, 56(RO), RI 
4$ 


#1, RI 
956(RO)CR1I, NEW_SIZE 
56(RO), NEW_SIZE, -(SP) 
GO (HEADER) 

#3, CHARGE_QUOTA 

#2; (BASE) 

F186, RO 

#5, 22(RO) 

SP 

NEW_LBN 

NEW" SIZE 

FIB 


al Saal Save R2,R3,R4,R5,R6,R7,R8B,RI 
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TOus000.° 12-8 e8=18e 93:90:38 LP TTX. SRCJEXTCONTIG.B52¢1 . (3) | 

> 261 1249 1 ROUTINE HANDLER (SIGNAL, MECHANISM) = : 4 
; 26 1250 1 : ; 
; 2 1251 1 !44 a 
> 264 1 26 2 - 
; $e? ! 7 } : FUNCTIONAL DESCRIPTION: | ef 
: 267 1255 1! This routine is the condition handler for file extension. It is : ; 
; 268 1256 1! enabled only during the truncate call SCORSESE OS 108 the old file . 4 
; 269 1257 1! blocks). Normal error handling would cause the entire file to a4 
; 270 1258 17! be dropped on the floor. Since we already have a new good copy,:we . 4 
; $m 1259 1! should forge ahead. Note that no error status is returned to the user, S34 
; ste 1366 1! although we will log a system error. | i 
Py 7 1261 1! | ° y 
; 274 1506 7 4 oar 
; $f? 1265 1 ! CALLING SEQUENCE: i” 
: 76 1264 1! HANDLER (ARG1, ARG2) | 
; 277 1265 1! a4 
; 278 1266 1 ! INPUT PARAMETERS: ae | 
; ry 1267 1! ARG1: address of signal array A 
3 sB0 1598 : ARG2: address of mechanism array 4 
; 282 1396 1! IMPLICIT INPUTS: | = 
; +44 14} : FILE_HEADER: address of file file header 3 
: 285 ers 1 i QUTPUT PARAMETERS: | i 4 
; 286 1074 1} NONE zs 
; 287 bie SB : 4 
; 288 1276 1°! IMPLICIT OUTPUTS: | 2 4 
on ee 7 
: 291 1279 1 | ROUTINE VALUE: ; i 3 
3 344 1680 : SS$_RESIGNAL or none if unwind sg 
: 29% 1282 1 i SIDE EFFECTS: i 3 
: 23 1285 1! file header map area cleaned out 1 4 
; 296 1284 1! + 3 
: 536 1386 1 | : 
: $88 1385 3 OSIN ; | 
; 301 1289 2 MAP i 3 
3; we 1290 § SIGNAL : REF BBLOCK, ! signal array arg ¢ 3 
; S07 1393 MECHANISM : REF BBLOCK; ! mechanism array arg ¢ 3 
| a 
; 129 ; : 

: 306 1294 ! Check the condition code for FCP error exit and check that it is not a ; i 
; ger 1295 ! write error. Then initialize the header's map area and unwind. On other | 2 4 
3 308 1399 : signals we simply resignal. | = | 
: : | sj 
: 310 1298 2 3 
, 1299 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER : 

; 312 1300 THEN SUNWIND (DEPADR™= MECHANISMCCAFSL_MCH_DEPTH)); | : ; 
: 4 130¢ RETURN SS$_RESIGNAL; ! status is irrelevant if unwind | : é 
: 312 1304 END; ! end of routine handler : 


EXTCONTIG 
v04-000 


eEXTRN = SYSSUNWIND 


0000 6008 HANDLER:.WORD Save nothing 
50 04 AC 00 0000 MOVL IGNAL, RO 
00000424 8F 04 AO D1 00006 CMPL 4(RO), #1060 
E 12 0000 BNEQ 1$ 
E 064 0001 CLRL -(SP) 
7E 08 Ac 08 Ci 0001 ADDL3 #8, MECHANISM, -(SP) 
000000006 00 ge FB 0001 CALLS es "hg ~ eee 
50 0918 BF 3¢ 00016 1$ MOVZWL #2528, RO 
4 0002 RET 
Routine Size: 36 bytes, Routine Base: SCODES + 018F 
317 1305 1 
318 1306 1 END 
319 1307 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 435 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 45 0 1000 00:02.0 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:EXTCONTIG/OBJ=OBJ$:EXTCONTIG MSRC$:EXTCONTIG/UPDATE=(ENH$:EXTCONTIG) 


S 
; Rur, Time: 


ize: 435 3 


Fiapsed Time: : 
Lines/CPU Min: 96 
Lexemes/CPU-Min: 4554 
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